(defun index (&key (name "stranger") (a "0") (b "0"))
  (html ""
	(title "" "my test index")
	(h1 "" (format nil "hello ~a this is LSP" name))
	(adding a b)))
(defun adding (a b)
  (setf na (parse-integer a :junk-allowed t))
  (setf nb (parse-integer b :junk-allowed t))
  (setf sumab (+ na nb))
	(p "" 
	   (form (args :name "adding" :action "index" :method "get")
		 "a:"
		 (input (args :type "text" :name "a" :value a))
		 "b:"
		 (input (args :type "text" :name "b" :value b))
		 (input (args :type "submit" :value "submit")))
	   (h1 "" (format nil "Sum:~a" sumab))))
	   